home *** CD-ROM | disk | FTP | other *** search
Knihovna v²raz∙ Pr∙vodce EMcalc Nemodßlnφ okna Statistickß anal²za Manußlnφ zadßnφ dat Pln∞nφ instrukcφ DATA Matematika konverze sou°adnic kartΘzskß <-> koso·hlß kartΘzskß <-> polßrnφ aritmetika kombinatorika permutace variace kombinace ·rokov² poΦet procentov² poΦet geometrie planimetrie troj·helnφk pravo·hl² rovnoramenn² rovnostrann² Φty°·helnφk rovnob∞₧nφk obdΘlnφk kosoΦtverec Φtverec lichob∞₧nφk t∞tivov² Φty°·helnφk teΦnov² Φty°·helnφk deltoid mnoho·helnφky kru₧nice a kruh kruhovß ·seΦ mezikru₧φ elipsa hyperbola parabola stereometrie hranol kvßdr krychle (hexaedr) jehlan pravideln² Φty°st∞n (tetraedr) pravideln² osmist∞n (oktaedr) pravideln² dvanßctist∞n (dodekaedr) pravideln² dvacetist∞n (ikosaedr) klφn hranolec vßlec ku₧el koule kulovß ·seΦ kulovß v²seΦ kulovß vrstva kulov² pßs prstenec kulov² klφn rotaΦnφ paraboloid rotaΦnφ hyperboloid rotaΦnφ elipsoid anuloid Grafy funkcφ iteracφ prom∞nnΘ iteracφ parametru rozvojem nekoneΦnΘ °ady goniometrickΘ funkce funkce komplexnφ prom∞nnΘ komplexnφ hyperbolick² sinus BASIC pou₧itφ instrukcφ IF...THEN...ELSE FOR...NEXT WHILE...LOOP REPEAT...UNTIL BREAK CONTINUE GOTO SUB, GOSUB DEF, CALL EXIT OPEN, CLOSE DELAY KEYBD INPUT PRINT, CLS PLOT MSG RESET CLEAR MODE PAUSE BEGIN, END u₧ivatelskΘ funkce Integrßl Aritmetick² pr∙m∞r Kvadratick² pr∙m∞r Geometrick² pr∙m∞r Harmonick² pr∙m∞r nativnφ funkce RMS FINT MEAN p°φklady ·loh Vazebnφ Φlen vysφlaΦe HDO Animace okna HDO - grafick² v²stup HDO - demo v²poΦet LogForm SplashForm Svφcen v pohybu rezonanΦnφ obvod Jura kru₧nice test ■ ■ Vφtejte v knihovn∞ v²raz∙ EMcalc ■ Pr∙vodce EMcalc mode real ■msg "P°ehlφdka formulß°∙ programu EMcalc",EMcalc ■ ■open ExprForm,Minimize ■open MainForm,Center ■reset ■enter "Sinuskosinusovß modulace" sin(1,51*x)*sign(sin(39,5*x))+0,5*cos(2*x) ■enter #X,0..2*pi:pi/10000 ■enter ■ ■open StatForm,Center ■open StatForm,Active ■delay 2000 ■close StatForm ■ ■delay 500 ■ ■open VarForm,Center ■open VarForm,Active ■delay 2000 ■close VarForm ■delay 500 ■ ■open FuncForm,Center ■open FuncForm,Active ■delay 2000 ■close FuncForm ■delay 500 ■ ■open LogForm,Center ■open LogForm,Active ■delay 2000 ■close LogForm ■delay 500 ■ ■open EdForm,Center ■open EdForm,Active ■delay 2000 ■close EdForm ■delay 500 ■ ■open SplashForm,Center ■open SplashForm,Active ■delay 2000 ■close SplashForm ■ ■msg "Konec p°ehlφdky oken",EMcalc ■open MainForm,Restore ■open ExprForm,Show ■open ExprForm,Active Galerie formulß°∙ TASK mode rad,dec,real ■vel= [jedn] vysv∞tlivka nov² komentß° nov² v²raz 'Statistika ■' ■msg "Simulace ruΦnφho zadßnφ vstupnφch dat do tabulky statistiky",P°φklad ■ ■mode rad,dec,real,data ■reset ■open MainForm, TopRight ■open ExprForm, BottomRight ■open StatForm, TopLeft ■open MainFOrm, Active ■ ■enter 12,3456789 ■enter 358,264578 ■enter 14,56789 ■enter 0,4578912 ■enter 18,7568197 ■enter 456,254789 ■enter 86,21456 ■enter 89,23465879 ■enter 45,78912345 ■enter 2,457899 ■ ■open StatForm,Active ■delay 500 ■keybd Alt+A ■ ■if msg "Chcete ulo₧it vstupnφ data?",conf = 6 then ■ open StatForm,Active ■ keybd Ctrl+S ■endif ■ ■if msg ("Chcete ulo₧it statistiku?",conf)=6 then ■ open StatForm,Active ■ keybd Shift+Ctrl+S ■endif ■ ■help Statistickß_anal²za ■ ■ Pr∙vodce statistikou TASK 'Statistika ■' ■msg "Vygenerovßnφ sΘrie 50-ti nßhodn²ch Φφsel v rozsahu 0..1000, provedenφ statistickΘ anal²zy nad vygenerovan²mi daty",P°φklad ■ ■mode rad,dec,real ■reset ■open MainForm,TopRight ■open ExprForm,BottomRight ■open StatForm,TopLeft ■ ■for x=1 to 50 ■ Data Random(1000) ■next ■ ■keybd StatForm,Alt+A ■ ■if msg "Chcete ulo₧it vstupnφ data?",conf = 6 then ■ keybd StatForm,Ctrl+S ■endif ■ ■if msg ("Chcete ulo₧it statistiku?",conf)=6 then ■ keybd StatForm,Shift+Ctrl+S ■endif ■ ■help Statistickß_anal²za ■ ■ ■ Pr∙vodce statistikou TASK V²razy byly zpracovßny podle knihy ■ Hanse Jochena Bartsche "MatematickΘ vzorce, ■ t°etφ revidovanΘ vydßnφ, Praha 1996 ■ matematika -pravo·hlß (ortogonßlnφ) ■-kartΘzskß (ortonormßlnφ) ■-koso·hlß ■-polßrnφ sou°adnicovΘ soustavy x= [m] kartΘzskß sou°adnice x ■y= [m] kartΘzskß sou°adnice y ■xk= [m] koso·hlß sou°adnice xk ■yk= [m] koso·hlß sou°adnice yk ■fi1= [rad] orientovan² ·hel svφrajφcφ kladnΘ poloosy x,xk ■fi2= [rad] orientovan² ·hel svφrajφcφ kladnΘ poloosy y,yk ■ kartΘzskß sou°adnice x xk=(-x*sin(fi2)+y*cos(fi2))/sin(fi1-fi2) x= [m] kartΘzskß sou°adnice x ■y= [m] kartΘzskß sou°adnice y ■xk= [m] koso·hlß sou°adnice xk ■yk= [m] koso·hlß sou°adnice yk ■fi1= [rad] orientovan² ·hel svφrajφcφ kladnΘ poloosy x,xk ■fi2= [rad] orientovan² ·hel svφrajφcφ kladnΘ poloosy y,yk ■ kartΘzskß sou°adnice y yk=(x*sin(fi1)-y*cos(fi1))/sin(fi1-fi2) x= [m] kartΘzskß sou°adnice x ■y= [m] kartΘzskß sou°adnice y ■xk= [m] koso·hlß sou°adnice xk ■yk= [m] koso·hlß sou°adnice yk ■fi1= [rad] orientovan² ·hel svφrajφcφ kladnΘ poloosy x,xk ■fi2= [rad] orientovan² ·hel svφrajφcφ kladnΘ poloosy y,yk ■ koso·hlß sou°adnice xk x=xk*cos(fi1)+yk*cos(fi2) x= [m] kartΘzskß sou°adnice x ■y= [m] kartΘzskß sou°adnice y ■xk= [m] koso·hlß sou°adnice xk ■yk= [m] koso·hlß sou°adnice yk ■fi1= [rad] orientovan² ·hel svφrajφcφ kladnΘ poloosy x,xk ■fi2= [rad] orientovan² ·hel svφrajφcφ kladnΘ poloosy y,yk ■ koso·hlß sou°adnice yk y=xk*sin(fi1)+yk*sin(fi2) x= [m] kartΘzskß sou°adnice x ■y= [m] kartΘzskß sou°adnice y ■ro= [m] pr∙vodiΦ (vzdßlenost bodu od p≤lu) ■fi= [m] argument (orientovan² ·hel pr∙vodiΦe) kartΘzskß sou°adnice x x=ro*cos(fi) x= [m] kartΘzskß sou°adnice x ■y= [m] kartΘzskß sou°adnice y ■ro= [m] pr∙vodiΦ (vzdßlenost bodu od p≤lu) ■fi= [m] argument (orientovan² ·hel pr∙vodiΦe) kartΘzskß sou°adnice y y=ro*sin(fi) x= [m] kartΘzskß sou°adnice x ■y= [m] kartΘzskß sou°adnice y ■ro= [m] pr∙vodiΦ (vzdßlenost bodu od p≤lu) ■fi= [m] argument (orientovan² ·hel pr∙vodiΦe) polßrnφ sou°adnice ro ro=sqrt(x^2+y^2) x= [m] kartΘzskß sou°adnice x ■y= [m] kartΘzskß sou°adnice y ■ro= [m] pr∙vodiΦ (vzdßlenost bodu od p≤lu) ■fi= [m] argument (orientovan² ·hel pr∙vodiΦe) polßrnφ sou°adnice fi fi=arctg2(y;x) -kombinatorika ■-·rokov² poΦet ■-procentov² poΦet aritmetika -permutace ■-variace ■-kombinace kombinatorika p= [-] poΦet permutacφ z n-prvk∙ bez opakovßnφ ■n= [-] poΦet prvk∙ mno₧iny ■ permutace bez opakovßnφ p=fact(n) neimplementovßno permutace s opakovßnφm p= v= [-] variace k-tΘ t°φdy z n-prvk∙ bez opakovßnφ ■n= [-] poΦet prvk∙ mno₧iny ■k= [-] uspo°ßdanß k-tice navzßjem r∙zn²ch prvk∙ ■ variace bez opakovßnφ v=fact(n)/fact(n-k) v= [-] variace k-tΘ t°φdy z n-prvk∙ s opakovßnφm ■n= [-] poΦet prvk∙ mno₧iny ■k= [-] uspo°ßdanß k-tice navzßjem r∙zn²ch prvk∙, ■ ka₧d² prvek se m∙₧e vyskytovat a₧ k-krßt variace s opakovßnφm v=n^k c= [-] kombinace k-tΘ t°φdy z n-prvk∙ bez opakovßnφ ■n= [-] poΦet prvk∙ mno₧iny ■k= [-] poΦet prvk∙ ka₧dΘ kombinace, kde se ka₧d² ■ prvek m∙₧e vyskytnou jen jedenkrßt ■ kombinace bez opakovßnφ c=fact(n)/(fact(k)*fact(n-k)) c= [-] kombinace k-tΘ t°φdy z n-prvk∙s opakovßnφm ■n= [-] poΦet prvk∙ mno₧iny ■k= [-] poΦet prvk∙ ka₧dΘ kombinace, kde se ka₧d² ■ prvek m∙₧e vyskytnou a₧ k-krßt ■ kombinace s opakovßnφm c=fact(n+k-1)/(fact(k)*fact(n-k)) Z [KΦ] zßkladnφ Φßstka (jistina) ■u [KΦ] ·rok ■p [%] ·rokovß mφra ■t [-] poΦet rok∙ ■ ·rok u=Z*p*t/100 Z [KΦ] zßkladnφ Φßstka (jistina) ■u [KΦ] ·rok ■p [%] ·rokovß mφra ■t [-] poΦet rok∙ ■ zßkladnφ Φßstka (jistina) Z=100*u/(p*t) Z [KΦ] zßkladnφ Φßstka (jistina) ■u [KΦ] ·rok ■p [%] ·rokovß mφra ■t [-] poΦet rok∙ ■ ·rokovß mφra p=100*u/(Z*t) Z [KΦ] zßkladnφ Φßstka (jistina) ■u [KΦ] ·rok ■p [%] ·rokovß mφra ■t [-] poΦet rok∙ ■ poΦet rok∙ t=100*u/(Z*p) Z [-] zßklad ■C [-] procentovß Φßst ■p [%] poΦet procent ■ zßklad Z=100*C/p Z [-] zßklad ■C [-] procentovß Φßst ■p [%] poΦet procent ■ poΦet procent p=100*C/Z Z [-] zßklad ■C [-] procentovß Φßst ■p [%] poΦet procent ■ procentovß Φßst C=Z*p/100 -planimetrie ■-stereometrie geometrie -troj·helnφk ■-Φty°·helnφk ■-mnoho·helnφky ■-kru₧nice a kruh ■-kruhovß ·seΦ ■-mezikru₧φ ■-elipsa ■-hyperbola ■-parabola planimetrie -pravo·hl² ■-rovnoramenn² ■-rovnostrann² troj·helnφk a [-] dΘlka odv∞sny ■b [-] dΘlka odv∞sny ■c [-] dΘlka p°epony ■gama [-] velikost ·hlu proti p°epon∞ ■vc [-] dΘlka v²Üky k p°epon∞ ■ca [-] dΘlka pr∙m∞tu strany a do p°epony c ■cb [-] dΘlka pr∙m∞tu strany b do p°epony c Pythagorova v∞ta c=sqrt(a^2+b^2) vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz -rovnob∞₧nφk ■-obdΘlnφk ■-kosoΦtverec ■-Φtverec ■-lichob∞₧nφk ■-t∞tivov² Φty°·helnφk ■-teΦnov² Φty°·helnφk ■-deltoid Φty°·helnφk vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz a = 5 [m] dΘlka delÜφ ze dvou zßkladen ■c = 4 [m] dΘlka kratÜφ ze dvou zßkladen ■b = 2,5 [m] dΘlka strany ■d = 2,7 [m] dΘlka strany ■O = [m] obvod lichob∞₧nφku ■S = [m] plocha lichob∞₧nφku obvod lichob∞₧nφku O=a+b+c+d a = 5 [m] dΘlka delÜφ ze dvou zßkladen ■c = 4 [m] dΘlka kratÜφ ze dvou zßkladen ■v=3 [m] v²Üka lichob∞₧nφku ■S = [m] obsah lichob∞₧nφku ■ obsah lichob∞₧nφku S=(a+c)/2*v a = 5 [m] dΘlka delÜφ ze dvou zßkladen ■c = 4 [m] dΘlka kratÜφ ze dvou zßkladen ■m= [m] dΘlka st°ednφ p°φΦky lichob∞₧nφku ■ dΘlka st°ednφ p°φΦky lichob∞₧nφku m=(a+c)/2 a = 5 [m] dΘlka delÜφ ze dvou zßkladen ■c = 4 [m] dΘlka kratÜφ ze dvou zßkladen ■v [m] v²Üka lichob∞₧nφku ■t [m] vzdßlenost t∞₧iÜt∞ od delÜφ zßkladny ■ vzdßlenost t∞₧iÜt∞ od delÜφ zßkladny t=v*(a+2*c)/(3*(a+c)) vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz t=0..2*pi:pi/100 [rad] parametr (argument pr∙vodiΦe) ■r=1 [m] polom∞r kru₧nice ■x= [m] sou°adnice x ■y= [m] sou°adnice y ■ parametrickß rovnice kru₧nice x=r*cos(t)...y=r*sin(t) vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz -hranol ■-kvßdr ■-krychle (hexaedr) ■-jehlan ■-pravideln² Φty°st∞n (tetraedr) ■-pravideln² osmist∞n (oktaedr) ■-pravideln² dvanßctist∞n (dodekaedr) ■-pravideln² dvacetist∞n (ikosaedr) ■-klφn ■-hranolec ■-vßlec ■-ku₧el ■-koule ■-rotaΦnφ paraboloid ■-rotaΦnφ hyperboloid ■-rotaΦnφ elipsoid ■-anuloid stereometrie vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz -kulovß ·seΦ ■-kulovß v²seΦ ■-kulovß vrstva ■-kulov² pßs ■-prstenec ■-kulov² klφn koule vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz vel [jedn] vysv∞tlivka nov² komentß° nov² v²raz mode rad,dec,cplx,imag=j ■fi=0..2*pi:pi/100 [-] ·hel pr∙vodiΦe (argument) ■r=1 [-] polom∞r kru₧nice (modul) ■ komplexnφ kru₧nice r*exp(j*fi) x=-1..1:0,01 [-] iterace nezßvisle prom∞nnΘ x ■y= [-] posloupnost funkΦnφch hodnot ■a=1 [-] amplituda (maximßlnφ hodnota) ■ °et∞zovka y=a*cosh(x) x=0..19,8*pi:0,01 [-] iterace nezßvisle prom∞nnΘ x ■y= [-] posloupnost funkΦnφch hodnot ■a=1 [-] amplituda (maximßlnφ hodnota) ■ pravo·hlß periodickß funkce y=a*sign(sin(x)) x=0..2*pi:pi/1000 [-] iterace nezßvisle prom∞nnΘ x ■y= [-] posloupnost funkΦnφch hodnot ■a=1 [-] amplituda (maximßlnφ hodnota) ■ sinusovß modulace y=a*sin(1,51*x)*sign(sin(39,5*x)) x=0..2*pi:pi/1000 [-] iterace nezßvisle prom∞nnΘ x ■y= [-] posloupnost funkΦnφch hodnot ■a=1 [-] amplituda (maximßlnφ hodnota) ■ sinuskosinusovß modulace y=sin(1,51*x)*sign(sin(39,5*x))+0,5*cos(2*x) x=0..10*pi:pi/100 [-] iterace nezßvisle prom∞nnΘ x ■y= [-] posloupnost funkΦnφch hodnot ■a=1 [-] amplituda (maximßlnφ hodnota) ■ ■ kosinusov² impuls y=a*heav(cos(x))*cos(x) x=pi..2*pi:pi/1000 [-] iterace nezßvisle prom∞nnΘ x ■y= [-] posloupnost funkΦnφch hodnot ■ aperiodick² p°echodov² d∞j y=sin(50*x)*exp(1)^(-x) t=0..2*pi:pi/100 [rad] iterace ·hlu pr∙vodiΦe bod∙ kru₧nice ■r=1 [m] polom∞r kru₧nice ■x= [m] x-ovΘ sou°adnice bod∙ kru₧nice ■y= [m] y-ovΘ sou°adnice bod∙ kru₧nice ■ kru₧nice x=r*cos(t)...y=r*sin(t) t=-2*pi..2*pi:pi/100 [rad] iterace ·hlu pr∙vodiΦe bod∙ elipsy ■a=1 [m] dΘlka hlavnφ poloosy ■e=0,2 [m] excentricita ■x= [m] x-ovΘ sou°adnice bod∙ elipsy ■y= [m] y-ovΘ sou°adnice bod∙ elipsy ■ elipsa x=(a/2+e)*cos(t/2)...y=(a/2-e)*sin(t/2) t=0..8*pi:pi/100 [rad] iterace ·hlu pr∙vodiΦe bod∙ spirßly ■r=1:0,1 [m] iterace dΘlky pr∙vodiΦe bod∙ spirßly ■x= [m] x-ovΘ sou°adnice bod∙ spirßly ■y= [m] y-ovΘ sou°adnice bod∙ spirßly ■ spirßla x=r*cos(t)...y=r*sin(t) t=-2*pi..2*pi:pi/100 [rad] iterace ·hlu odvalenφ teΦny kru₧nice ■r=1 [m] polom∞r kru₧nice ■x= [m] x-ovΘ sou°adnice bod∙ evolventy ■y= [m] y-ovΘ sou°adnice bod∙ evolventy ■ evolventa kru₧nice x=r*(cos(t)+t*sin(t))...y=r*(sin(t)-t*cos(t)) t=-2*pi..2*pi:pi/100 [rad] iterace ·hlu odvalenφ hybnΘ kru₧nice ■r=1 [m] polom∞r hybnΘ kru₧nice ■x= [m] x-ovΘ sou°adnice bod∙ prostΘ cykloidy ■y= [m] y-ovΘ sou°adnice bod∙ prostΘ cykloidy ■ prostß cykloida x=r*(t-sin(t))...y=r*(1-cos(t)) t=-2*pi..2*pi:pi/100 [rad] iterace ·hlu odvalenφ hybnΘ kru₧nice ■r=1 [m] polom∞r hybnΘ kru₧nice ■d=0,2 [m] vzdßlenost tvo°φcφho bodu od st°edu (d<r) ■x= [m] x-ovΘ sou°adnice bod∙ zkrßcenΘ cykloidy ■y= [m] y-ovΘ sou°adnice bod∙ zkrßcenΘ cykloidy ■ zkrßcenß cykloida x=r*t-d*sin(t)...y=r-d*cos(t) t=-2*pi..2*pi:pi/100 [rad] iterace ·hlu odvalenφ hybnΘ kru₧nice ■r=1 [m] polom∞r hybnΘ kru₧nice ■d=1,8 [m] vzdßlenost tvo°φcφho bodu od st°edu (d>r) ■x= [m] x-ovΘ sou°adnice bod∙ prodlou₧enΘ cykloidy ■y= [m] y-ovΘ sou°adnice bod∙ prodlou₧enΘ cykloidy ■ prodlou₧enß cykloida x=r*t-d*sin(t)...y=r-d*cos(t) t=-2*pi..8*pi:pi/100 [rad] iterace ·hlu odvalenφ hybnΘ kru₧nice ■a=1 [m] polom∞r nehybnΘ kru₧nice ■b=0,25 [m] polom∞r hybnΘ kru₧nice ■d=1 [m] vzdßlenost tvo°φcφho bodu od st°edu hybnΘ kru₧nice (d<b) ■x= [m] x-ovΘ sou°adnice bod∙ prostΘ epicykloidy ■y= [m] y-ovΘ sou°adnice bod∙ prostΘ epicykloidy ■; Poznßmka: ■; Prostß epicykloida se pro a=b naz²vß kardioida nebo srdcovka. ■ prostß epicykloida x=(a+b)*cos(b/a*t)-d*cos((a+b)/a*t)...y=(a+b)*sin(b/a*t)-d*sin((a+b)/a*t) t=-2*pi..8*pi:pi/100 [rad] iterace ·hlu odvalenφ hybnΘ kru₧nice ■a=1 [m] polom∞r nehybnΘ kru₧nice ■b=0,25 [m] polom∞r hybnΘ kru₧nice ■d=0,7 [m] vzdßlenost tvo°φcφho bodu od st°edu hybnΘ kru₧nice (d<b) ■x= [m] x-ovΘ sou°adnice bod∙ prostΘ epicykloidy ■y= [m] y-ovΘ sou°adnice bod∙ prostΘ epicykloidy ■ zkrßcenß epicykloida x=(a+b)*cos(b/a*t)-d*cos((a+b)/a*t)...y=(a+b)*sin(b/a*t)-d*sin((a+b)/a*t) t=-2*pi..8*pi:pi/100 [rad] iterace ·hlu odvalenφ hybnΘ kru₧nice ■a=1 [m] polom∞r nehybnΘ kru₧nice ■b=0,25 [m] polom∞r hybnΘ kru₧nice ■d=1,2 [m] vzdßlenost tvo°φcφho bodu od st°edu hybnΘ kru₧nice (d>b) ■x= [m] x-ovΘ sou°adnice bod∙ prostΘ epicykloidy ■y= [m] y-ovΘ sou°adnice bod∙ prostΘ epicykloidy prodlou₧enß epicykloida x=(a+b)*cos(b/a*t)-d*cos((a+b)/a*t)...y=(a+b)*sin(b/a*t)-d*sin((a+b)/a*t) t=-2*pi..2*pi:pi/100 [rad] iterace ·hlu odvalenφ hybnΘ kru₧nice ■a=1 [m] polom∞r nehybnΘ kru₧nice ■x= [m] x-ovΘ sou°adnice bod∙ prostΘ epicykloidy ■y= [m] y-ovΘ sou°adnice bod∙ prostΘ epicykloidy ■; Poznßmka: ■; Kardioida (srdcovka) je zvlßÜtnφm p°φpadem prostΘ epicykloidy pro a=b ■ kardioida x=a*(2*cos(t)-cos(2*t))...y=a*(2*sin(t)-sin(2*t)) t=-2*pi..8*pi:pi/100 [rad] iterace ·hlu odvalenφ hybnΘ kru₧nice ■a=1 [m] polom∞r nehybnΘ kru₧nice ■b=0,25 [m] polom∞r hybnΘ kru₧nice ■d=1 [m] vzdßlenost tvo°φcφho bodu od st°edu hybnΘ kru₧nice (d<b) ■x= [m] x-ovΘ sou°adnice bod∙ prostΘ epicykloidy ■y= [m] y-ovΘ sou°adnice bod∙ prostΘ epicykloidy ■; Poznßmka: ■; Prostß hypocykloida se pro b=a/4 naz²vß asteroida nebo hv∞zdice. ■ prostß hypocykloida x=(a-b)*cos(b/a*t)+d*cos((a-b)/a*t)...y=(a-b)*sin(b/a*t)-d*sin((a-b)/a*t) t=-2*pi..8*pi:pi/100 [rad] iterace ·hlu odvalenφ hybnΘ kru₧nice ■a=1 [m] polom∞r nehybnΘ kru₧nice ■b=0,25 [m] polom∞r hybnΘ kru₧nice ■d=0,5 [m] vzdßlenost tvo°φcφho bodu od st°edu hybnΘ kru₧nice (d<b) ■x= [m] x-ovΘ sou°adnice bod∙ prostΘ epicykloidy ■y= [m] y-ovΘ sou°adnice bod∙ prostΘ epicykloidy ■ zkrßcenß hypocykloida x=(a-b)*cos(b/a*t)+d*cos((a-b)/a*t)...y=(a-b)*sin(b/a*t)-d*sin((a-b)/a*t) t=-2*pi..8*pi:pi/100 [rad] iterace ·hlu odvalenφ hybnΘ kru₧nice ■a=1 [m] polom∞r nehybnΘ kru₧nice ■b=0,25 [m] polom∞r hybnΘ kru₧nice ■d=1,5 [m] vzdßlenost tvo°φcφho bodu od st°edu hybnΘ kru₧nice (d<b) ■x= [m] x-ovΘ sou°adnice bod∙ prostΘ epicykloidy ■y= [m] y-ovΘ sou°adnice bod∙ prostΘ epicykloidy ■ prodlou₧enß hypocykloida x=(a-b)*cos(b/a*t)+d*cos((a-b)/a*t)...y=(a-b)*sin(b/a*t)-d*sin((a-b)/a*t) t=-2*pi..8*pi:pi/100 [rad] iterace ·hlu odvalenφ hybnΘ kru₧nice ■a=1 [m] polom∞r nehybnΘ kru₧nice ■b=0,25 [m] polom∞r hybnΘ kru₧nice ■d=1 [m] vzdßlenost tvo°φcφho bodu od st°edu hybnΘ kru₧nice (d<b) ■x= [m] x-ovΘ sou°adnice bod∙ asteroidy ■y= [m] y-ovΘ sou°adnice bod∙ asteroidy ■; Poznßmka: ■; Asteroida je zvlßÜtnφm p°φpadem prostΘ hypocykloidy pro b=a/4. ■ asteroida x=a*(cos(t/4))^3...y=a*(sin(t/4))^3 t=-4*pi..4*pi:pi/100 [rad] iterace parametru ■a=1 [m] v²Üka Bernoilliovy lemniskßty ■x= [m] x-ovΘ sou°adnice bod∙ Bernoilliovy lemniskßty ■y= [m] y-ovΘ sou°adnice bod∙ Bernoilliovy lemniskßty ■; Poznßmka: ■; Bernoulliova lemniskßta je zvlßÜtnφm p°φpadem Cassiniovy k°ivky pro a=e ■ Bernoilliova lemniskßta x=a*t*sqrt(2)*((1+t^2)/(1+t^4))...y=a*t*sqrt(2)*((1-t^2)/(1+t^4)) t=-2*pi..2*pi:pi/100 [rad] Iterace parametru ■a=1 [m] text.. ■x= [m] x-ovΘ sou°adnice bod∙ Dioklovy kisoidy ■y= [m] y-ovΘ sou°adnice bod∙ Dioklovy kisoidy ■ Dioklova kisoida x=a*t^2/(1+t^2)...y=a*t^3/(1+t^2) t=-2*pi..2*pi:pi/100 [rad] Iterace parametru ■a=1 [-] text.. ■x= [m] x-ovΘ sou°adnice bod∙ strofoidy ■y= [m] y-ovΘ sou°adnice bod∙ strofoidy ■ strofoida x=-a*(1-t^2)/(1+t^2)...y=-a*t*(1-t^2)/(1+t^2) t=-2*pi..2*pi:pi/100 [rad] Iterace parametru ■a=1 [-] text.. ■b=1 [-] text.. ■x= [m] x-ovΘ sou°adnice bod∙ Pascalovy zßvitnice ■y= [m] y-ovΘ sou°adnice bod∙ Pascalovy zßvitnice ■ Pascalova zßvitnice x=a*cos(t)-b*cos(2*t)...y=a*sin(t)-b*sin(2*t) t=-pi..pi:pi/100 [rad] iterace argumentu t ■a=0..pi:pi/8 [rad] iterace argumentu a ■x= [-] x-ovΘ sou°adnice bod∙ grafu svφcnu ■y= [-] y-ovΘ sou°adnice bod∙ grafu svφcnu ■ matematickΘ kyvadlo x=sin(t+a)...y=sin(2*t) t=0..6*pi:pi/100 [rad] iterace argumentu t ■a=0..2:0,2 [-] iterace amplitudy a ■x= [-] x-ovΘ sou°adnice bod∙ grafu svφcnu ■y= [-] y-ovΘ sou°adnice bod∙ grafu svφcnu ■ svφcen x=a*sin(t)*cos(t/3)...y=cos(t/3) t=0..2*pi:pi/100 [-] text.. ■r=1 [-] text.. ■x=0 [-] text.. ■y=0 [-] text.. ■_C_=0 [-] text.. ■_D_=0 [-] text.. ■_E_=0 [-] text.. ■_F_=0 [-] text.. ■ kv∞t kopretiny x=(r+0,7*sin(10*t))*cos(t)...y=(r+0,7*sin(10*t))*sin(t) t=0..2*pi:pi/1000 [-] text.. ■r=1 [-] text.. ■x=0 [-] text.. ■y=0 [-] text.. ■_C_=0 [-] text.. ■_D_=0 [-] text.. ■_E_=0 [-] text.. ■_F_=0 [-] text.. ■ kruh se zß°ezy x=(r+0,15*sign(sin(10*t)))*cos(t)...y=(r+0,15*sign(sin(10*t)))*sin(t) t=0..2*pi:pi/1000 [-] text.. ■r=1 [-] text.. ■x=0 [-] text.. ■y=0 [-] text.. ■_C_=0 [-] text.. ■_D_=0 [-] text.. ■_E_=0 [-] text.. ■_F_=0 [-] text.. ■ ozubenΘ kolo x=(r+0,1*sin(30*t))*cos(t)...y=(r+0,1*sin(30*t))*sin(t) x=0..10*pi:pi/100 [rad] iterace nezßvisle prom∞nnΘ ■n= [-] po°adovΘ Φφslo Φlenu nekoneΦnΘ °ady ■y= [-] posloupnost funkΦnφch hodnot ■ pravo·helnφkovß k°ivka y=1/n*sin(n*x):::n=1..1000:2 x=0..10*pi:pi/100 [rad] iterace nezßvisle prom∞nnΘ ■n= [-] po°adovΘ Φφslo Φlenu nekoneΦnΘ °ady ■y= [-] posloupnost funkΦnφch hodnot ■ pilovitß k°ivka rostoucφ y=-1/n*sin(n*x):::n=1..1000:1 x=0..10*pi:pi/100 [rad] iterace nezßvisle prom∞nnΘ ■n= [-] po°adovΘ Φφslo Φlenu nekoneΦnΘ °ady ■y= [-] posloupnost funkΦnφch hodnot ■ pilovitß k°ivka klesajφcφ y=1/n*sin(n*x):::n=1..1000:1 x=0..10*pi:pi/100 [rad] iterace nezßvisle prom∞nnΘ ■n= [-] po°adovΘ Φφslo Φlenu nekoneΦnΘ °ady ■y= [-] posloupnost funkΦnφch hodnot ■ troj·helnφkovß k°ivka y=1/n^2*cos(n*x):::n=1..1000:2 x=0..10*pi:pi/100 [rad] iterace nezßvisle prom∞nnΘ ■n= [-] po°adovΘ Φφslo Φlenu nekoneΦnΘ °ady ■y= [-] posloupnost funkΦnφch hodnot ■ lichob∞₧nφkovß k°ivka y=1/n^2*sin(n*x)*sin(n*0,8):::n=1..1000:2 x=0..10*pi:pi/100 [rad] iterace nezßvisle prom∞nnΘ ■a=0.2 [-] parametr urΦujφcφ st°φdu impulzu ■n= [-] po°adovΘ Φφslo Φlenu nekoneΦnΘ °ady ■y= [-] posloupnost funkΦnφch hodnot ■ pravo·helnφkov² impuls y=sin(n*a)/n*cos(n*x) :::n=1..1000:1 x=-pi..pi:pi/100 [rad] argument funkce ■y= [-] funkΦnφ hodnota sinus y=sin(x) x=-pi..pi:pi/100 [-] iterace ·hlu ■a=0..3:1 [-] iterace fßzovΘho posunu ■y= [-] funkΦnφ hodnota sinus - fßzov² posun 45░ y=sin(x-a*pi/4) x=-pi..pi:pi/100 [-] iterace ·hlu ■a=-1..1:1 [-] iterace vertikßlnφho offsetu ■y= [-] funkΦnφ hodnota sinus - vertikßlnφ offset 1/2 amplitudy y=a*0,5+sin(x) x=-pi..pi:pi/100 [-] iterace ·hlu ■a=1..3:1 [-] iterace vertikßlnφho offsetu ■y= [-] funkΦnφ hodnota sinus - pom∞r amplitudy 1:2 y=a*sin(x) x=-pi..pi:pi/100 [rad] argument funkce ■y= [-] funkΦnφ hodnota kosinus y=cos(x) x=-pi/2,1..pi/2,1:pi/100 [rad] argument funkce ■y= [-] funkΦnφ hodnota tangens y=tg(x) x=-pi/2,1..pi/2,1:pi/100 [rad] argument funkce ■y= [-] funkΦnφ hodnota kotangens y=cotg(x) mode rad,dec,cplx,imag=j ■fi=0..2*pi:pi/100 [-] ·hel pr∙vodiΦe (argument) ■r=1 [-] polom∞r kru₧nice (modul) ■ komplexnφ kru₧nice r*exp(j*fi) mode rad,dec,cplx,imag=j ■x=0..2*pi:pi/100 [-] argument ■y=1..3:1 [-] amplituda ■ komplexnφ hyperbolick² sinus sinh(y*exp(j*x)) P°φkazov² interpret pro °φzenφ b∞hu programovan²ch ·loh BASIC podmφnka ■ IF uvßdφ relaΦnφ podmφnku p°φkazu v∞tvenφ if then else ■ THEN uvßdφ p°φkaz nebo blok p°φkaz∙, kter² se vykonß p°i spln∞nφ relaΦnφ podmφnky ■ ELSE uvßdφ p°φkaz nebo blok p°φkaz∙, kter² se vykonß nenφ-li spln∞na relaΦnφ podmφnka ■ ENDIF konec bloku p°φkaz∙ instrukce if then else ■ ■cyklus ■ FOR uvßdφ podmφnku iteraΦnφ cyklus for next ■ TO uvßdφ hornφ hranici °φdφcφ prom∞nnΘ cyklu for next ■ STEP specifikuje iteraΦnφ krok cyklu for next ■ NEXT konec bloku iteraΦnφho cyklu for next ■ WHILE uvßdφ iteraΦnφ cyklus while loop s relaΦnφ podmφnkou na zaΦßtku cyklu ■ LOOP konec bloku iteraΦnφho cyklu while loop ■ REPEAT uvßdφ iteraΦnφ cyklus repeat until s relaΦnφ podmφnkou na konci cyklu ■ UNTIL konec bloku iteraΦnφho cyklu repeat-until ■ BREAK p°eruÜenφ iteraΦnφho cyklu ■ CONTINUE pokraΦovßnφ dalÜφ iteracφ, zbylΘ instrukce v bloku se nevykonajφ ■ ■skok ■ GOTO podmφn∞n²/nepodmφn∞n² skok na specifikovanΘ nßv∞Ütφ ■ LABEL cφlovΘ nßv∞Ütφ p°φkazu skoku goto ■ ■podprogram ■ SUB hlaviΦka podprogramu ■ GOSUB volßnφ podprogramu ■ RETURN nßvrat z podprogramu ■ DEF hlaviΦka definice funkce ■ RESULT p°i°azenφ nßvratovΘ hodnoty funkce ■ ENDDEF konec bloku definice funkce ■ CALL volßnφ funkce se specifikovan²m nßzvem ■ EXIT opuÜt∞nφ t∞la podprogramu, t∞la funkce, t∞la hlavnφho programu ■ ■okno ■ OPEN otev°enφ nemodßlnφho okna aplikace ■ CLOSE zav°enφ nemodßlnφho okna aplikace ■ ■klßvesnice ■ DELAY Φasovß prodleva mezi dv∞ma instrukcemi ■ KEYBD simuluje stisk klßvesy nebo klßvesovΘ zkratky ■ ■vstup, v²stup ■ INPUT vstup ΦφselnΘ nebo textovΘ hodnoty pomocφ dialogovΘho okna ■ PRINT formßtovan² v²stup do okna textovΘho editoru ■ PLOT v²stup sou°adnic bod∙ do datovΘ °ady grafiky ■ MSG formßtovanß zprßva pomocφ dialogovΘho okna ■ CLS vyma₧e editor v²stupnφho okna ■ ■soubor ■ OPEN otev°enφ textovΘho souboru pro Φtenφ nebo zßpis ■ CLOSE Φtenφ z textovΘho souboru ■ PRINT zßpis do textovΘho souboru ■ CLOSE zav°enφ souboru ■ ■re₧im ■ RESET provede reset ■ CLEAR vynuluje vÜechny prom∞nnΘ ■ MODE nastavφ re₧im v²poΦtu ■ PAUSE nastavφ podmφn∞n²/nepodmφn∞n² bod p°eruÜenφ (pro ladφcφ re₧im) ■ ■program ■ BEGIN vstupnφ bod t∞la programu ·lohy ■ END koncovΘ nßv∞Ütφ t∞la hlavnφho programu ■ P°ehled klφΦov²ch slovφ BASIC reset 'provede Reset ■mode rad,dec,real 'inicializuje re₧im v²poΦt∙ ■ ■a=0 ■:Opakuj 'nßv∞Ütφ ■ a=a+1 ■ if a<3 then goto opakuj 'podmφn∞n² skok na nßv∞Ütφ ■end ■ IF...THEN...ELSE - podmφnka TASK reset 'provede Reset ■mode rad,dec,real,norm 'inicializuje re₧im v²poΦt∙ ■ ■a=1 ■b=0 ■if a>0 then 'podmφn∞n² blok p°φkaz∙ ■ b=b+1 ■ if b>10 then 'vno°en² podmφn∞n² blok p°φkaz∙ ■ d=2 ■ else ■ e=3 ■ endif 'konec vnit°nφho bloku p°φkaz∙ ■ c=3 ■else ■ d=4 ■ e=5 ■endif 'konec vn∞jÜφho bloku p°φkaz∙ ■ ■end ■ IF...THEN...ELSE - vno°enΘ podmφnky TASK reset 'provede Reset ■mode rad,dec,real 'inicializuje re₧im v²poΦt∙ ■ ■open EdForm,0,0,150,300 'p°ipravφ velikost a polohu okna EdForm ■cls 'vyma₧e obsah v²stupnφho okna EdForm ■x=0 ■for a=1 to 3 'hlaviΦka cyklu for...next ■ for b=1 to 4 'hlaviΦka vno°enΘho cyklu for...next ■ c=a*b ■ if c>6 then continue 'podmφn∞nΘ p°eskoΦenφ zbyl²ch instrukcφ cyklu ■ X=X+1 ■ print a,b,x 'vypφÜe hodnoty prom∞nn²ch a,b,x do okna EdForm ■ if X=5 then ■ x=0 ■ break 'p°eruÜφ iteraΦnφ cyklus for...next ■ endif 'ukonΦuje podmφn∞n² blok p°φkaz∙ ■ next 'konec vnit°nφ smyΦky cyklu for..next ■next 'konec vn∞jÜφ smyΦky cyklu for..next ■ ■msg "hotovo" 'zobrazφ zprßvu o ukonΦenφ ·lohy ■end ■ FOR...NEXT - Implicitnφ krok = 1 TASK reset 'provede Reset ■mode rad,dec,real 'inicializuje re₧im v²poΦt∙ ■ ■suma=0 ■for i=2 to 100 step 2 'iteraΦnφ krok je roven 2 ■ suma=suma+i ■next ■msg "souΦet sud²ch Φφsel = %g", info; suma ■ FOR...NEXT - Kladn² krok <> 1 TASK reset 'provede Reset ■mode rad,dec,real 'inicializuje re₧im v²poΦt∙ ■ ■qsum=0 ■for i=5 to 0 step -0,1 'iteraΦnφ krok je roven -0,1 ■ qsum=qsum+i^2 ■next ■msg "souΦet kvadrßt∙ Φφsel = %7.2f", info; qsum ■ FOR...NEXT - Zßporn² krok TASK reset 'provede Reset ■mode rad,dec,real 'inicializuje re₧im v²poΦt∙ ■ ■cls 'vyma₧e obsah v²stupnφho okna EdForm ■a=0 ■while a<5 'podmφnka na zaΦßtku cyklu while...loop ■ a=a+1 ■ print a 'v²pis hodnoty prom∞nnΘ do v²stupnφho okna EdForm ■ if a=3 then break 'podmφn∞nΘ p°eruÜenφ cyklu ■loop 'konec t∞la cyklu while...loop ■msg "hotovo" 'zobrazφ zprßvu o ukonΦenφ ·lohy ■ ■end 'konec programu ■ WHILE...LOOP - iteraΦnφ cyklus TASK reset 'provede Reset ■mode rad,dec,real 'inicializuje re₧im v²poΦt∙ ■ ■a=0 ■repeat 'hlaviΦka cyklu repeat...until ■ a=a+1 ■ print a 'v²pis hodnoty prom∞nnΘ do v²stupnφho okna EdForm ■ if a=3 then break else continue ■ b=2 'tento p°φkaz se nikdy nevykonß ■until a=5 'podmφnka na konci cyklu repeat...until ■msg "hotovo" 'zobrazφ zprßvu o ukonΦenφ ·lohy ■ ■end 'konec programu ■ REPEAT...UNTIL - iteraΦnφ cyklus TASK reset 'provede Reset ■mode rad,dec,real 'inicializuje re₧im v²poΦt∙ ■cls 'vyma₧e obsah v²stupnφho okna EdForm ■ ■a=0 ■repeat 'hlaviΦka cyklu repeat...until ■ a=a+1 ■ print a 'v²pis hodnoty prom∞nnΘ do okna EdForm ■ if a=5 then break ■ b=2*a ■until a>10 'podmφnka na konci cyklu repeat...until ■msg "a = %g"; a 'zobrazφ koneΦnou hodnotu prom∞nnΘ a ■ ■end 'konec programu ■ BREAK - p°eruÜenφ iteraΦnφho cyklu TASK reset 'provede Reset ■mode rad,dec,real 'inicializuje re₧im v²poΦt∙ ■open EdForm,0,0,120,240 'p°ipravφ velikost a polohu EdForm ■ ■open EdForm,0,0, ■cls 'vyma₧e obsah okna EdForm ■ ■a=0 ■repeat 'hlaviΦka cyklu repeat...until ■ a=a+1 ■ print a 'v²pis hodnoty prom∞nnΘ do okna EdForm ■ if a>5 then continue ■ b=a ■until a>10 'podmφnka na konci cyklu repeat...until ■msg "b = %g"; b 'zobrazφ koneΦnou hodnotu prom∞nnΘ b ■ ■end 'konec programu ■ CONTINUE - pokraΦovßnφ dalÜφ iteracφ TASK reset 'provede Reset ■mode rad,dec,real,norm 'inicializuje re₧im v²poΦt∙ ■ ■a=0 ■:Opakuj 'nßv∞Ütφ ■a=a+1 ■if a<5 then goto Opakuj 'podmφn∞n² skok na nßv∞Ütφ ■msg "hotovo" 'zobrazφ zprßvu o ukonΦenφ ·lohy ■ ■end 'konec programu ■ GOTO - skok na nßv∞Ütφ TASK reset 'provede Reset ■mode rad,dec,real 'inicializuje re₧im v²poΦt∙ ■ ■a=3 ■gosub Podprogram 'volßnφ podprogramu ■msg "a = %g",info;a 'zobrazenφ koneΦnΘ hodnoty prom∞nnΘ "a" ■ ■end 'konec programu ■ ■sub Podprogram 'hlaviΦka podprogramu ■ for n=1 to 5 ■ a=a+1 ■ next ■return 'nßvrat z podprogramu ■ SUB, GOSUB - podprogram TASK reset 'provede Reset ■mode rad,dec,real,norm 'inicializuje re₧im v²poΦt∙ ■ ■def mean(a,b,c) 'hlaviΦka u₧ivatelskΘ funkce ■ mean=(a+b+c)/3 'p°i°azenφ funkΦnφ hodnoty ■ 'result=(a+b+c)/3 'alternativa p°i°azenφ funkΦnφ hodnoty ■enddef 'konec bloku definice u₧ivatelskΘ funkce ■ ■begin 'zaΦßtek t∞la hlavnφho programu ■ call mean(4;5;7) ■ msg "mean = %1.3g"; mean 'volßnφ u₧ivatelskΘ funkce ■end 'konec t∞la hlavnφho programu ■ DEF, CALL - u₧ivatelskß funkce TASK reset 'provede Reset ■mode rad,dec,real 'inicializuje re₧im v²poΦt∙ ■open EdForm,0,0 'zobrazφ EdForm vlevo naho°e ■cls 'vyma₧e obsah okna EdForm ■ ■begin 'zaΦßtek t∞la hlavnφho programu ■ a=0 ■ gosub Podprogram 'volßnφ podprogramu ■ msg "a = %g",info;a 'v²pis prom∞nnΘ "a" ■end 'konec t∞la hlavnφho programu ■ ■sub Podprogram 'hlaviΦka podprogramu ■ for n=1 to 5 ■ a=a+1 ■ print a ■ if a=3 then exit 'p°edΦasnΘ opuÜt∞nφ podprogramu ■ next ■return 'regulΘrnφ nßvrat z podprogramu ■ EXIT - opuÜt∞nφ podprogramu, funkce TASK open ExprForm, minimize 'minimalizuje Knihovnu v²raz∙ ■open MainForm, hide 'skryje aplikaΦnφ okno EMcalc ■open SplashForm 'zobrazφ logo programu EMcalc ■delay 1500 'Φasovß prodleva 1,5 sec ■close SplashForm 'uzav°e okno s logem EMcalc ■open ExprForm, maximize 'maximalizuje Knihovnu v²raz∙ ■msg "Obnovit stav okna" 'zobrazφ informaΦnφ dialog ■open ExprForm, restore 'obnovφ stav Knihovny v²raz∙ ■open MainForm, show 'zobrazφ aplikaΦnφ okno EMcalc ■ ■ OPEN, CLOSE - zobrazenφ okna TASK reset 'provede Reset ■mode deg,dec,real 'inicializuje re₧im v²poΦt∙ ■ ■open VarForm,,,100,100 'nastavφ Üφ°ku a v²Üku VarForm ■open VarForm,topmost 'okno VarForm nejsvrchn∞jÜφm ■ ■for fi=0 to 360 step 2 ■ left=300+100*(1+cos(fi-90))'vypoΦφtß parametr left ■ top=150+100*(1+sin(fi-90)) 'vypoΦφtß parametr top ■ open VarForm,left,top 'animace okna VarForm ■next ■ ■open ExprForm,restore 'obnovφ stav ExprForm ■close VarForm 'zav°e okno VarForm ■ ■ OPEN, CLOSE - animace okna TASK reset 'provede Reset ■mode rad,dec,real 'inicializuje re₧im v²poΦt∙ ■cls ■ ■open "sinus.txt" for output as #1 'otev°e soubor pro zßpis ■for x=0 to 2*pi step pi/10 ■ print #1 "%1.3f", sin(x) 'zßpis do souboru ■next ■close #1 'uzav°e soubor ■ OPEN, CLOSE - zßpis do souboru TASK reset 'provede Reset ■mode rad,dec,real 'inicializuje re₧im v²poΦt∙ ■cls ■ ■open "sinus.txt" for input as #1 'otev°e soubor pro Φtenφ ■while not eof #1 ■ input #1, x 'Φtenφ ze souboru ■ print x 'zapφÜe p°eΦtenou hodnotu do EdForm ■loop ■close #1 'uzav°e soubor ■ OPEN, CLOSE - Φtenφ ze souboru TASK open(ExprForm,minimize) 'zobrazφ knihovnu v²raz∙ minimalizovan∞ ■open(MainForm,hide) 'skryje hlavnφ okno ■open(SplashForm) 'zobrazφ okno s logem EMcalc ■delay(1000) 'Φasovß prodleva 1 sec ■close(SplashForm) 'zav°e okno s logem EMcalc ■open(MainForm,show) 'zobrazφ hlavnφ okno ■open(ExprForm,restore) 'obnovφ zobrazenφ knihovny v²raz∙ ■ DELAY - Φasovß prodleva TASK keybd F1 'vyvolß nßpov∞du programu EMcalc KEYBD - simulace stisku klßvesy TASK reset 'provede Reset ■mode rad,dec,real,norm 'inicializuje re₧im v²poΦt∙ ■ ■input "Zadejte Φφslo", X, 12.35 'zadßnφ hodnoty X pomocφ dialogu ■msg "Hodnota X = %1.5g", info; X 'zobrazφ zadanou hodnotu ■ INPUT - vstup z dialogu TASK 'p°ed spuÜt∞nφm tohoto k≤du si p°ipravte prosim ■'soubor test.txt obsahujφcφ °ßdek s Φφselnou hodnotou ■ ■reset 'provede Reset ■mode rad,dec,real,norm 'inicializuje re₧im ■ ■open "test.txt" for input as #1 'otev°e soubor pro Φtenφ ■input #1, X 'p°eΦte ze souboru hodnotu do prom∞nnΘ X ■close file #1 'uzav°e soubor ■msg "Hodnota X = %1.5g", info; X 'zobrazφ p°eΦtenou hodnotu ■ INPUT - vstup z textovΘho souboru TASK reset 'provede Reset ■mode rad,dec,real 'inicializuje re₧im v²poΦt∙ ■cls 'vyma₧e v²stupnφ okno ■ ■for x=-20 to 20 step 2 'formßtovan² v²stup do okna ■ print "x = %1.3f cosh(x) = %1.3f", x, cosh(x) ■next ■ PRINT - v²stup do okna TASK reset 'provede Reset ■mode rad,dec,real 'inicializuje re₧im v²poΦt∙ ■cls 'vyma₧e v²stupnφ okno ■ ■open "sinus.txt" for output as #1 'otev°e soubor pro zßpis ■for x=-20 to 20 step 2 ■ print #1 "%1.3f", cosh(x) 'zßpis do souboru ■next ■close #1 'uzav°e soubor ■ PRINT - v²stup do souboru TASK reset 'provede Reset ■mode rad,dec,real,norm 'inicializuje re₧im v²poΦt∙ ■ ■for x=0 to 4*pi step pi/50 ■ if x= 0 then open GrForm,0,0,400,300 ■ y=cos(x) ■ plot(1,x,y) 'v²stup do grafiky ■ z=x*sin(x) ■ plot(2,x,z) 'v²stup do grafiky ■next PLOT - v²stup do grafiky TASK mode cplx,imag=j 're₧im komplexnφch prom∞nn²ch, imaginßrnφ jednotka = j ■ ■c=225+12j ■:start ■ msg "Hodnota komplexnφ prom∞nnΘ cplx = %1.3g+%1.3gj",info;re(c),abs(im(c)) ■ msg "Varovnß zprßva", mtWarning ■ msg "Zprßva o chyb∞", mtError ■ msg "Zprßva o poΦasφ", mtInformation ■ if msg "P°ejete si pokraΦovat v programu",Conf=6 then goto start ■end MSG - zprßva pomocφ dialogovΘho okna TASK reset 'provede Reset ■ RESET - provedenφ funkce Reset TASK clear 'vynuluje vÜechny prom∞nnΘ CLEAR - vynulovßnφ vÜech prom∞nn²ch TASK mode rad,dec,real,norm 'inicializuje re₧im v²poΦtu MODE - nastavenφ re₧imu v²poΦtu TASK reset 'provede Reset ■mode rad,dec,real 'inicializuje re₧im v²poΦt∙ ■ ■open EdForm,0,0,150,300 'p°ipravφ velikost a polohu okna EdForm ■cls 'vyma₧e obsah v²stupnφho okna EdForm ■x=0 ■for a=1 to 3 'hlaviΦka cyklu for...next ■ for b=1 to 4 'hlaviΦka vno°enΘho cyklu for...next ■ c=a*b ■ if c=4 then pause 'podmφn∞nΘ pozastavenφ b∞hu p°i lad∞nφ ■ X=X+1 ■ print a,b,x 'vypφÜe hodnoty prom∞nn²ch a,b,x do okna EdForm ■ if X=5 then ■ x=0 ■ break 'p°eruÜφ iteraΦnφ cyklus for...next ■ endif 'ukonΦuje podmφn∞n² blok p°φkaz∙ ■ next 'konec vnit°nφ smyΦky cyklu for..next ■next 'konec vn∞jÜφ smyΦky cyklu for..next ■ ■msg "hotovo" 'zobrazφ zprßvu o ukonΦenφ ·lohy ■ ■ PAUSE - bod pozastavenφ pro lad∞nφ TASK reset 'provede Reset ■mode rad,dec,real,norm 'inicializuje re₧im v²poΦt∙ ■ ■def integral(fx,a,b) 'zaΦßtek definice u₧ivatelskΘ funkce ■ dx=(b-a)/10000 ■ @1=x ■ #1=a..b:dx ■ @2=integral ■ #2=0:ans ■ fx*dx ■enddef 'konec definice u₧ivatelskΘ funkce ■ ■begin 'zaΦßtek hlavnφho programu ■ call integral("sin(x)";0;pi) 'volßnφ u₧ivattelskΘ funkce ■ gosub zobrazit 'volßnφ podprogramu ■end 'konec hlavnφho programu ■ ■sub zobrazit 'hlaviΦka podprogramu ■ msg "Integrßl = %g",info; integral ■return 'konec podprogramu ■ BEGIN, END - zaΦßtek a konec programu TASK Integrßl ■Aritmetick² pr∙m∞r ■Kvadratick² pr∙m∞r ■Geometrick² pr∙m∞r ■Harmonick² pr∙m∞r ■ U₧ivatelskΘ funkce reset ■mode dec,real ■ ■def integral(fx,a,b,dx) ■ integral=0 ■ for x=a to b-dx step dx ■ integral=integral+fx*dx ■ next ■enddef ■ ■begin ■ call integral("sin(x)",0,pi,pi/100) ■ msg "Integrßl = %g",info; integral ■end ■ Integrace plochy pod k°ivkou TASK mode rad,dec,real,norm ■vel= [jedn] vysv∞tlivka Aritmetick² pr∙m∞r TASK mode rad,dec,real,norm ■vel= [jedn] vysv∞tlivka Kvadratick² pr∙m∞r TASK mode rad,dec,real,norm ■vel= [jedn] vysv∞tlivka Geometrick² pr∙m∞r TASK mode rad,dec,real,norm ■vel= [jedn] vysv∞tlivka Harmonick² pr∙m∞r TASK RMS Kvadratick² pr∙m∞r ■MEAN Aritmetick² pr∙m∞r ■FINT Integrace plochy pod k°ivkou ■ Nativnφ funkce reset ■mode dec,real ■ ■def rms(fx,a,b) 'Root Mean Square ■ dx=(b-a)/10000 ■ @1=x ■ #1=a..b:dx ■ @2=n ■ #2=0:1 ■ @5=dxSum ■ #5=0:dx ■ @6=rmsSum ■ #6=0:ans ■ fx^2*dx ■ keybd Ctrl+G 'zobrazφ detailnφ graf ■ keybd Ctrl+Q 'skryje vÜechny ovlßdacφ prvky ■ #5=dxSum ■ #6=rmsSum ■ rms=sqrt(rmsSum/dxSum) ■enddef ■ ■begin ■ input "Funkce pro v²poΦet RMS","f(x)",sin(x) ■ call rms("input";0;2*pi) ■ msg "Efektivnφ hodnota RMS = %g",info; rms ■end ■ RMS - st°ednφ kvadratickß hodnota TASK reset ■mode dec,real ■ ■def integral(fx,a,b) ■ dx=(b-a)/10000 ■ @1=x ■ #1=a..b:dx ■ @2=integral ■ #2=0:ans ■ fx*dx ■enddef ■ ■begin ■ call integral("sin(x)";0;pi) ■ msg "Integrßl = %g",info; integral ■end ■ FINT - integrace plochy pod k°ivkou TASK reset ■mode dec,real ■ ■def mean(fx,a,b) ■ dx=(b-a)/10000 ■ @1=x ■ #1=a..b:dx ■ @2=n ■ #2=0:1 ■ @5=mean ■ #5=0:ans ■ fx ■ #2=n ■ #5=mean/n ■ fx ■enddef ■ ■begin ■ call mean("exp(x)";0;1) ■ msg "Aritmetick² pr∙m∞r = %g",info; mean ■end ■ MEAN - st°ednφ hodnota TASK P°φklady ·loh reset ■clear ■mode rad, dec, cplx, imag=j ■'pole se vstupnφmi prom∞nn²mi ■@1=f2 ■@2=k ■@3=U1 ■@4=C1 ■@5=L1 ■@6=Q1 ■@7=C2 ■@8=Q2 ■ ■:START ■ ■'inicializace vstupnφch prom∞nn²ch ■U1=600 [V] 'nap∞tφ ■C1=240 [uF] 'kapacita ■L1=1.7 [mH] 'indukΦnost ■Q1=40 [-] 'Φinitel jakosti ■k=0.125 [-] 'Φinitel vazby ■f2=217 [Hz] 'frekvence ■C2=1.2 [uF] 'kapacita ■Q2=100 [-] 'Φinitel jakosti ■Zs=14 [ohm] 'impedance sφt∞ ■fi=30 [deg] '·hel impedance sφt∞ ■f=216.667 [Hz] 'frekvence signßlu HDO ■ ■'inicializace v²stupnφch prom∞nn²ch ■I1=0 [A] 'proud ■fi1=0 [deg] 'fazovy posun ■f1=0 [Hz] 'rezon. kmitocet ■Uc1=0 [V] 'napeti na kondenzatoru ■IL1=0 [V] 'proud indukcnosti ■Xi1=0 [-] 'pomer kmitoctu f1/f ■I2=0 [A] 'proud ■U2=0 [V] 'napeti ■S1=0 [kVA] 'vykon ■S2=0 [kVA] 'vykon ■L2=0 [mH] 'indukcnost ■ ■'p°epoΦet na zßkladnφ jednotky ■C1=C1*1E-6 ■L1=L1*1E-3 ■C2=C2*1E-6 ■L=L*1E-3 ■C3=C3*1E-6 ■ ■'skalßrnφ v²poΦty ■w=2*pi*f ■f1=1/(2*pi*sqrt((L+L1)*C1)) ■L2=1/4/pi/pi/f2/f2/C2 ■R1=2*pi*f1*(L+L1)/Q1 'R1 se poΦφtß z rezonanΦnφho kmitoΦtu f1 ■R2=2*Pi*f2*L2/Q2 'R2 se poΦφtß z rezonanΦnφho kmitoΦtu f2 ■M=k*sqrt(L1*L2) ■'fi1=180/pi*arctg((w*(L+L1)-1/w/C1)/R1) ■Xi1=f1/f ■kI1=1-w*w*C3*L1 ■ ■'inicializace substituΦnφch komplexnφch prom∞nn²ch a,b,c,d ■a=R1+j*(w*L-1/w/C1+w*L1/(1-w*w*C3*L1)) ■b=R2+j*(w*L2-1/w/C2) ■c=j*(w*M) ■d=Zs*cos(fi*pi/180)+j*Zs*sin(fi*pi/180) ■ ■'vlastnφ v²poΦet ■I2=U1*c/(a*(b+d)-c*c) ■I1=I2*(b+d)/c ■fi1=arg(I1) ■IL1=I1*kI1 ■U2=I2*d ■Uc1=I1*1/w/C1 ■S1=3*U1*conjug(I1) ■S2=3*U2*conjug(I2) ■Z1=U1/I1 ■Z2=U2/I2 ■ ■'PROTOKOL ■'~~~~~~~~ ■'open file as #1 ■'open EdForm,show ■cls ■print "Vstupnφ hodnoty - volna vazba HDO" ■print "-----------------------------------------------------------" ■'close #1 ■print " nap∞tφ zdroje U1 = %4.3f [V] ", U1 ■print " kapacita C1 = %4.3f [uF] ", C1*1E6 ■print " indukΦnost L1 = %4.3f [mH] ", L1*1E3 ■print " Φinitel jakosti Q1 = %4.3f [-] ", Q1 ■print " Φinitel vazby k = %4.3f [-] ", k ■print " lad∞n² kmitoΦet f2 = %4.3f [Hz] ", f2 ■print " kapacita C2 = %4.3f [uF] ", C2*1E6 ■print " Φinitel jakosti Q2 = %4.3f [-] ", Q2 ■print " impedance sφt∞ Zs = %4.3f [ohm] ", Zs ■print " ·hel impedance fi = %4.3f [deg] ", 180/pi*fi ■print " frekvence signßlu f = %4.3f [Hz] ", f ■print ■print ■print "VypoΦtenΘ hodnoty - fßzovΘ posuny vzta₧eny k nap∞tφ zdroje" ■print "--------------------------------------------------------------------------------------------------" ■print " proud I1 I1 = %1.2f [A] %3.3g [deg]", abs(I1), 180/pi*arg(I1) ■print " rezonanΦnφ frekv. f1 = %1.2f [Hz]", f1 ■print " nap∞tφ na kond. C1 Uc1 = %1.2f [V] %3.3g [deg]", abs(Uc1), 180/pi*arg(Uc1) ■print " proud tlumivkou L1 IL1 = %1.2f [A] %3.3g [deg]", abs(IL1), 180/pi*arg(IL1) ■print " pom∞r kmitoΦtu Xi1 Xi1 = %1.2f [-]", Xi1 ■print " proud I2 I2 = %1.2f [A] %3.3g [deg]", abs(I2), 180/pi*arg(I2) ■print " nap∞tφ U2 U2 = %1.2f [V] %3.3g [deg]", abs(U2), 180/pi*arg(U2) ■print " v²kon S1 S1 = %1.2f [kVA] %3.3g [deg]", abs(S1)/1000, 180/pi*arg(S1) ■print " v²kon S2 S2 = %1.2f [kVA] %3.3g [deg]", abs(S2)/1000, 180/pi*arg(S2) ■print " indukΦnost L2 L2 = %1.2f [mH]", L2 ■ ■end ■ parametry vazebnφho Φlenu vysφlaΦe HDO TASK reset 'provede Reset ■mode deg,dec,real 'inicializuje re₧im v²poΦt∙ ■ ■open VarForm,,,100,100 'nastavφ Üφ°ku a v²Üku VarForm ■open VarForm,topmost 'okno VarForm nejsvrchn∞jÜφm ■ ■for fi=0 to 360 step 2 ■ left=300+100*(1+cos(fi-90))'vypoΦφtß parametr left ■ top=150+100*(1+sin(fi-90)) 'vypoΦφtß parametr top ■ open VarForm,left,top 'animace okna VarForm ■next ■ ■open ExprForm,restore 'obnovφ stav ExprForm ■close VarForm 'zav°e okno VarForm ■ ■ Animace okna VarForm TASK reset ■mode rad,dec,cplx,imag=j ■'pole se vstupnφmi prom∞nn²mi ■@1=f2 ■@2=k ■@3=U1 ■@4=C1 ■@5=L1 ■@6=Q1 ■@7=C2 ■@8=Q2 ■ ■:START ■ ■f2=210 [Hz] 'frekvence ■:LOOP ■'inicializace vstupnφch prom∞nn²ch ■U1=600 [V] 'nap∞tφ ■C1=240 [uF] 'kapacita ■L1=1.7 [mH] 'indukΦnost ■Q1=40 [-] 'Φinitel jakosti ■k=0.125 [-] 'Φinitel vazby ■'f2=217 [Hz] 'frekvence ■C2=1.2 [uF] 'kapacita ■Q2=100 [-] 'Φinitel jakosti ■Zs=14 [ohm] 'impedance sφt∞ ■fi=30 [deg] '·hel imp. sφt∞ ■f=216.667 [Hz] 'frekv.signßlu HDO ■ ■'inicializace v²stupnφch prom∞nn²ch ■I1=0 [A] 'proud ■fi1=0 [deg] 'fazovy posun ■f1=0 [Hz] 'rezon. kmitocet ■Uc1=0 [V] 'napeti na kondenzatoru ■IL1=0 [V] 'proud indukcnosti ■Xi1=0 [-] 'pomer kmitoctu f1/f ■I2=0 [A] 'proud ■U2=0 [V] 'napeti ■S1=0 [kVA] 'vykon ■S2=0 [kVA] 'vykon ■L2=0 [mH] 'indukcnost ■ ■'p°epoΦet na zßkladnφ jednotky ■C1=C1*1E-6 ■L1=L1*1E-3 ■C2=C2*1E-6 ■L=L*1E-3 ■C3=C3*1E-6 ■ ■'skalßrnφ v²poΦty ■w=2*pi*f ■f1=1/(2*pi*sqrt((L+L1)*C1)) ■L2=1/4/pi/pi/f2/f2/C2 ■R1=2*pi*f1*(L+L1)/Q1 'R1 se poΦφtß z rezonanΦnφho kmitoΦtu f1 ■R2=2*Pi*f2*L2/Q2 'R2 se poΦφtß z rezonanΦnφho kmitoΦtu f2 ■M=k*sqrt(L1*L2) ■'fi1=180/pi*arctg((w*(L+L1)-1/w/C1)/R1) ■Xi1=f1/f ■kI1=1-w*w*C3*L1 ■ ■'inicializace substituΦnφch komplexnφch prom∞nn²ch a,b,c,d ■a=R1+j*(w*L-1/w/C1+w*L1/(1-w*w*C3*L1)) ■b=R2+j*(w*L2-1/w/C2) ■c=j*(w*M) ■d=Zs*cos(fi*pi/180)+j*Zs*sin(fi*pi/180) ■ ■'vlastnφ v²poΦet ■I2=U1*c/(a*(b+d)-c*c) ■I1=I2*(b+d)/c ■fi1=arg(I1) ■IL1=I1*kI1 ■U2=I2*d ■Uc1=I1*1/w/C1 ■S1=3*U1*conjug(I1) ■S2=3*U2*conjug(I2) ■Z1=U1/I1 ■Z2=U2/I2 ■ ■plot(1,f2,abs(U2)) ■f2=f2+0,5 ■if f2<235 then goto loop ■end ■ ■'PROTOKOL ■'~~~~~~~~ ■open(EdForm,show) ■print "Vstupnφ hodnoty - volna vazba HDO" ■print "-----------------------------------------------------------" ■print " nap∞tφ zdroje U1 = %4.3f [V] ", U1 ■print " kapacita C1 = %4.3f [uF] ", C1*1E6 ■print " indukΦnost L1 = %4.3f [mH] ", L1*1E3 ■print " Φinitel jakosti Q1 = %4.3f [-] ", Q1 ■print " Φinitel vazby k = %4.3f [-] ", k ■print " lad∞n² kmitoΦet f2 = %4.3f [Hz] ", f2 ■print " kapacita C2 = %4.3f [uF] ", C2*1E6 ■print " Φinitel jakosti Q2 = %4.3f [-] ", Q2 ■print " impedance sφt∞ Zs = %4.3f [ohm] ", Zs ■print " ·hel impedance fi = %4.3f [deg] ", 180/pi*fi ■print " frekvence signßlu f = %4.3f [Hz] ", f ■print ■print ■print "VypoΦtenΘ hodnoty - fßzovΘ posuny vzta₧eny k nap∞tφ zdroje" ■print "--------------------------------------------------------------------------------------------------" ■print " proud I1 I1 = %1.2f [A] %3.3g [deg]", abs(I1), 180/pi*arg(I1) ■print " rezonanΦnφ frekv. f1 = %1.2f [Hz]", f1 ■print " nap∞tφ na kond. C1 Uc1 = %1.2f [V] %3.3g [deg]", abs(Uc1), 180/pi*arg(Uc1) ■print " proud tlumivkou L1 IL1 = %1.2f [A] %3.3g [deg]", abs(IL1), 180/pi*arg(IL1) ■print " pom∞r kmitoΦtu Xi1 Xi1 = %1.2f [-]", Xi1 ■print " proud I2 I2 = %1.2f [A] %3.3g [deg]", abs(I2), 180/pi*arg(I2) ■print " nap∞tφ U2 U2 = %1.2f [V] %3.3g [deg]", abs(U2), 180/pi*arg(U2) ■print " v²kon S1 S1 = %1.2f [kVA] %3.3g [deg]", abs(S1)/1000, 180/pi*arg(S1) ■print " v²kon S2 S2 = %1.2f [kVA] %3.3g [deg]", abs(S2)/1000, 180/pi*arg(S2) ■print " indukΦnost L2 L2 = %1.2f [mH]", L2 ■ parametry vazebnφho Φlenu vysφlaΦe HDO TASK reset ■mode rad,dec,cplx,imag=j ■'pole se vstupnφmi prom∞nn²mi ■@1=f2 ■@2=k ■@3=U1 ■@4=C1 ■@5=L1 ■@6=Q1 ■@7=C2 ■@8=Q2 ■ ■:START ■ ■f2=210 [Hz] 'frekvence ■:LOOP ■'inicializace vstupnφch prom∞nn²ch ■U1=600 [V] 'nap∞tφ ■C1=240 [uF] 'kapacita ■L1=1.7 [mH] 'indukΦnost ■Q1=40 [-] 'Φinitel jakosti ■k=0.125 [-] 'Φinitel vazby ■'f2=217 [Hz] 'frekvence ■C2=1.2 [uF] 'kapacita ■Q2=100 [-] 'Φinitel jakosti ■Zs=14 [ohm] 'impedance sφt∞ ■fi=30 [deg] '·hel imp. sφt∞ ■f=216.667 [Hz] 'frekv.signßlu HDO ■ ■'inicializace v²stupnφch prom∞nn²ch ■I1=0 [A] 'proud ■fi1=0 [deg] 'fazovy posun ■f1=0 [Hz] 'rezon. kmitocet ■Uc1=0 [V] 'napeti na kondenzatoru ■IL1=0 [V] 'proud indukcnosti ■Xi1=0 [-] 'pomer kmitoctu f1/f ■I2=0 [A] 'proud ■U2=0 [V] 'napeti ■S1=0 [kVA] 'vykon ■S2=0 [kVA] 'vykon ■L2=0 [mH] 'indukcnost ■ ■'p°epoΦet na zßkladnφ jednotky ■C1=C1*1E-6 ■L1=L1*1E-3 ■C2=C2*1E-6 ■L=L*1E-3 ■C3=C3*1E-6 ■ ■'skalßrnφ v²poΦty ■w=2*pi*f ■f1=1/(2*pi*sqrt((L+L1)*C1)) ■L2=1/4/pi/pi/f2/f2/C2 ■R1=2*pi*f1*(L+L1)/Q1 'R1 se poΦφtß z rezonanΦnφho kmitoΦtu f1 ■R2=2*Pi*f2*L2/Q2 'R2 se poΦφtß z rezonanΦnφho kmitoΦtu f2 ■M=k*sqrt(L1*L2) ■'fi1=180/pi*arctg((w*(L+L1)-1/w/C1)/R1) ■Xi1=f1/f ■kI1=1-w*w*C3*L1 ■ ■'inicializace substituΦnφch komplexnφch prom∞nn²ch a,b,c,d ■a=R1+j*(w*L-1/w/C1+w*L1/(1-w*w*C3*L1)) ■b=R2+j*(w*L2-1/w/C2) ■c=j*(w*M) ■d=Zs*cos(fi*pi/180)+j*Zs*sin(fi*pi/180) ■ ■'vlastnφ v²poΦet ■I2=U1*c/(a*(b+d)-c*c) ■I1=I2*(b+d)/c ■fi1=arg(I1) ■IL1=I1*kI1 ■U2=I2*d ■Uc1=I1*1/w/C1 ■S1=3*U1*conjug(I1) ■S2=3*U2*conjug(I2) ■Z1=U1/I1 ■Z2=U2/I2 ■ ■plot(1,f2,abs(U2)) ■f2=f2+0,5 ■if f2<235 then goto loop ■end ■ ■'PROTOKOL ■'~~~~~~~~ ■open(EdForm,show) ■print "Vstupnφ hodnoty - volna vazba HDO" ■print "-----------------------------------------------------------" ■print " nap∞tφ zdroje U1 = %4.3f [V] ", U1 ■print " kapacita C1 = %4.3f [uF] ", C1*1E6 ■print " indukΦnost L1 = %4.3f [mH] ", L1*1E3 ■print " Φinitel jakosti Q1 = %4.3f [-] ", Q1 ■print " Φinitel vazby k = %4.3f [-] ", k ■print " lad∞n² kmitoΦet f2 = %4.3f [Hz] ", f2 ■print " kapacita C2 = %4.3f [uF] ", C2*1E6 ■print " Φinitel jakosti Q2 = %4.3f [-] ", Q2 ■print " impedance sφt∞ Zs = %4.3f [ohm] ", Zs ■print " ·hel impedance fi = %4.3f [deg] ", 180/pi*fi ■print " frekvence signßlu f = %4.3f [Hz] ", f ■print ■print ■print "VypoΦtenΘ hodnoty - fßzovΘ posuny vzta₧eny k nap∞tφ zdroje" ■print "--------------------------------------------------------------------------------------------------" ■print " proud I1 I1 = %1.2f [A] %3.3g [deg]", abs(I1), 180/pi*arg(I1) ■print " rezonanΦnφ frekv. f1 = %1.2f [Hz]", f1 ■print " nap∞tφ na kond. C1 Uc1 = %1.2f [V] %3.3g [deg]", abs(Uc1), 180/pi*arg(Uc1) ■print " proud tlumivkou L1 IL1 = %1.2f [A] %3.3g [deg]", abs(IL1), 180/pi*arg(IL1) ■print " pom∞r kmitoΦtu Xi1 Xi1 = %1.2f [-]", Xi1 ■print " proud I2 I2 = %1.2f [A] %3.3g [deg]", abs(I2), 180/pi*arg(I2) ■print " nap∞tφ U2 U2 = %1.2f [V] %3.3g [deg]", abs(U2), 180/pi*arg(U2) ■print " v²kon S1 S1 = %1.2f [kVA] %3.3g [deg]", abs(S1)/1000, 180/pi*arg(S1) ■print " v²kon S2 S2 = %1.2f [kVA] %3.3g [deg]", abs(S2)/1000, 180/pi*arg(S2) ■print " indukΦnost L2 L2 = %1.2f [mH]", L2 ■ parametry vazebnφho Φlenu vysφlaΦe HDO TASK 'open(ExprForm,minimize) ■open(LogForm,0,0) ■for i=1 to 50 ■ if i<=25 then ■ open(LogForm,+2,+2) ■ else ■ open(LogForm,-2,-2) ■ endif ■next ■close(LogForm) ■'open(ExprForm,restore) ■ nov² komentß° TASK 'ovlßdßnφ stavu oken ■open ExprForm, minimize 'minimalizuje Knihovnu v²raz∙ ■open MainForm, hide 'skryje aplikaΦnφ okno EMcalc ■open SplashForm 'zobrazφ logo programu EMcalc ■delay 1500 'Φasovß prodleva 1,5 sec ■close SplashForm 'uzav°e okno s logem EMcalc ■open MainForm, show 'zobrazφ aplikaΦnφ okno EMcalc ■open ExprForm, maximize 'maximalizuje Knihovnu v²raz∙ ■msg "Obnovit stav okna" 'zobrazφ informaΦnφ dialog ■open ExprForm, restore 'obnovφ stav Knihovny v²raz∙ ■ ■ nov² komentß° TASK reset ■mode rad,dec,real ■@1=t ■#1=0..6*pi:pi/100 ■@3=x ■@2=a ■#2=0..2:0,2 ■a*sin(t)*cos(t/3)...cos(t/3) ■'keybd Ctrl+G 'zobrazφ graf ■'keybd Ctrl+Q 'skryje ovlßdacφ prvky ■ ■keybd Ctrl+G ■#1=0 ■#2=0 ■ ■:zoom ■@4=n 'deklarace iteraΦnφ prom∞nnΘ ■for n=1 to 5 ■ keybd F5 ■next ■for n=1 to 5 ■ keybd F6 ■next ■ svφcen TASK reset ■mode rad,dec,cplx,imag=j ■cls ■ ■'pole se vstupnφmi prom∞nn²mi ■@5=ZC ■@8=ZL ■@7=omega ■@1=f ■@2=L ■@3=C ■@4=R ■@5=Z ■ ■'inicializace vstupnφch prom∞nn²ch ■L=2m [H] 'indukΦnost ■C=10u [F] 'kapacita ■R=5,152k [Ohm] 'odpor ■ ■'vlastnφ v²poΦet ■for f=1 to 10000 step 100 ■ omega=2*pi*f ■ ZL=j*omega*L ■ ZC=1/(j*omega*C) ■ Z=ZL+(ZC*R)/(ZC+R) ■' print "Z = %7.3f arg(Z) = %5.4f", abs(Z), arg(Z) ■ plot(1,f,abs(Z)) ■next ■ ■ ■end. ■ sΘriov² rezonanΦnφ obvod TASK reset ■mode deg,dec,real,norm ■ ■'poloha zdroje XZ,ZY ■XZ=-0,5 ■YZ=-0,5 ■graf=1 ■for i=0 to 360 step 10 ■x=0,01*cos(i)+XZ ■y=0,01*sin(i)+YZ ■if i>180 then graf=2 ■plot(graf,x,y) ■next ■ kru₧nice TASK mode rad,dec,real ■mode rad,dec,real,norm ■reset 'provede Reset ■ ■mode rad,dec,real,norm 'inicializuje re₧im v²poΦt∙ ■ ■a=0 ■ ■:Opakuj 'nßv∞Ütφ ■ ■ a=a+1 ■ ■ if a<3 then goto opakuj 'podmφn∞n² skok na nßv∞Ütφ ■ ■end nov² komentß° TASK 
